home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog52 < prev    next >
Text File  |  1995-06-29  |  462b  |  23 lines

  1. # popup menu
  2.  
  3. proc popIt {event} {
  4.     .fred.menu menuPosition $event
  5.     .fred.menu manageChild
  6. }
  7.  
  8. xtAppInitialize -class Program
  9.  
  10. xmLabel .fred managed -labelString "ctrl-p or Btn3Down popups from me"
  11. .fred setValues -translations \
  12.         "<Btn3Down>: action(popIt %event)"
  13.  
  14. xmPopupMenu .fred.menu -menuAccelerator "Ctrl <Key> p"
  15. xmPushButton .fred.menu.btn1 managed
  16. xmPushButton .fred.menu.btn2 managed
  17.  
  18. . realizeWidget
  19.  
  20. #.fred.menu manageChild
  21.  
  22. . mainLoop
  23.